home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / PRG-64.ARC / PGM DEMO 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  72 lines
  1. 30 POKE55,255:POKE56,16:CLR
  2. 40 DIMS1(39),S2(39),S3(39),S4(39)
  3. 50 POKE53280,0:POKE53281,0
  4. 60 BA=32768+4*256
  5. 70 SYSBA+6,57344,52224:SYSBA
  6. 80 SYSBA+24:AA=4096+256
  7. 90 SYSBA+39,0,0,0,"[159][144][147]"
  8. 100 SYSBA+12,57344,"PLOT"
  9. 110 FORI=0TO39
  10. 120 S1(I)=AA
  11. 130 SYSBA+48,AA,0,I,25,1
  12. 140 AA=PEEK(781)+PEEK(782)*256+1
  13. 150 NEXTI
  14. 160 SYSBA+39,0,0,0,"[144][147]"
  15. 170 SYSBA+12,57344,"ATOM"
  16. 180 FORI=0TO39
  17. 190 S3(I)=AA
  18. 200 SYSBA+48,AA,0,I,25,1
  19. 210 AA=PEEK(781)+PEEK(782)*256+1
  20. 220 NEXTI
  21. 230 SYSBA+39,0,0,0,"[144][147]"
  22. 240 SYSBA+12,57344,"IMAGES"
  23. 250 FORI=0TO39
  24. 260 S2(I)=AA
  25. 270 SYSBA+48,AA,0,I,25,1
  26. 280 AA=PEEK(781)+PEEK(782)*256+1
  27. 290 NEXTI
  28. 300 AA=40960
  29. 310 SYSBA+39,0,0,0,"[158][144][147]"
  30. 320 SYSBA+12,57344,"ME.BMP"
  31. 321 SYSBA+12,52224,"ME.COLOR"
  32. 330 FORI=0TO39
  33. 340 S4(I)=AA
  34. 350 SYSBA+48,AA,0,I,25,1
  35. 360 AA=PEEK(781)+PEEK(782)*256+1
  36. 370 NEXTI:GOTO1360         V1=-1:V2=25
  37. 380 FORI=0TO39
  38. 390 V1=V1+1:IFV1=25THENV1=0
  39. 400 V2=V2-1:IFV2=-1THENV2=24
  40. 410 Z=S1(I):Y=39-I:Y=S3(Y):D=S2(V1):E=S4(V2)
  41. 420 SYSBA+51,Z,0,I
  42. 430 SYSBA+51,Y,0,39-I
  43. 440 SYSBA+51,D,V1,0
  44. 450 SYSBA+51,E,V2,0
  45. 460 NEXT
  46. 470 GOTO380
  47. 1360 FORI=0TO39:Z=S1(I):Y=39-I:Y=S2(Y)
  48. 1370 SYSBA+51,Z,0,I
  49. 1375 SYSBA+51,Y,0,39-I
  50. 1380 NEXT
  51. 2360 FORI=0TO39
  52. 2361 X=S3(I):W=39-I:W=S4(W)
  53. 2370 SYSBA+51,X,0,I
  54. 2375 SYSBA+51,W,0,39-I
  55. 2380 NEXT
  56. 3000 FORI=0TO39
  57. 3005 X=S1(I)
  58. 3010 SYSBA+51,X,0,I:NEXT
  59. 4000 FORI=39TO0STEP-1
  60. 4005 X=S2(I)
  61. 4010 SYSBA+51,X,0,I:NEXT
  62. 5000 FORI=0TO39
  63. 5005 X=S3(I)
  64. 5010 SYSBA+51,X,0,I:NEXT
  65. 6000 FORI=39TO0STEP-1
  66. 6005 X=S4(I)
  67. 6010 SYSBA+51,X,0,I:NEXT
  68. 6020 GETA$
  69. 6030 IFA$="[136]"THEN1360
  70. 6040 IFA$="[133]"THEN3000
  71. 6050 GOTO1360
  72.